home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / gambo / k_rdoor.dxr / 00006.ls < prev    next >
Encoding:
Text File  |  1995-02-13  |  1.1 KB  |  74 lines
  1. on startMovie
  2.   cursor(4)
  3.   set the visible of sprite 48 to 0
  4.   set the volume of sound 1 to 120
  5.   if not soundBusy(1) then
  6.     puppetSound("Oss_aif")
  7.   end if
  8. end
  9.  
  10. on mIdle
  11.   puppetSprite(48, 1)
  12.   if the timer >= 90 then
  13.     mchangetext()
  14.     startTimer()
  15.     updateStage()
  16.   else
  17.     nothing()
  18.   end if
  19. end
  20.  
  21. on mchangetext
  22.   if the castNum of sprite 48 = 33 then
  23.     set the castNum of sprite 48 to 32
  24.     set the visible of sprite 48 to 1
  25.   else
  26.     set the castNum of sprite 48 to 33
  27.   end if
  28. end
  29.  
  30. on mgo10
  31.   set the mouseDownScript to EMPTY
  32.   puppetSound(0)
  33.   puppetSprite(48, 0)
  34.   set the visible of sprite 48 to 0
  35.   set the volume of sound 1 to 190
  36.   go(10)
  37. end
  38.  
  39. on mgo7
  40.   puppetSprite(48, 0)
  41.   go(7)
  42. end
  43.  
  44. on mEvent
  45.   global toilet
  46.   set n to random(2)
  47.   if n = 1 then
  48.     set toilet to 1
  49.     go(1, "toilet1.dxr")
  50.   else
  51.     set toilet to 2
  52.     go(1, "toilet4.dxr")
  53.   end if
  54. end
  55.  
  56. on mgo_k_left
  57.   global cd
  58.   cursor(4)
  59.   puppetSound(0)
  60.   go(25)
  61.   go(40, "K_Left")
  62. end
  63.  
  64. on mchooser
  65.   global i
  66.   set the mouseDownScript to EMPTY
  67.   set i to random(2)
  68.   if i = 1 then
  69.     go(10)
  70.   else
  71.     go(45)
  72.   end if
  73. end
  74.